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Editorial 

You may notice the better print quality in the Newsletter this 
month. That is because we have invested in one of the Royal 
Office Master 2000 daisy wheel printers available from Matmos 
ltd for £119.00. Its very good value for money. The printer 
works well with the Cortex using centronics interface. I believe 
that a version is also available with serial interface. The only 
problem with the printer is that there is no english character 
set that gives a £ sign instead of the #. To get the £ you have 
to print "<1B5B>" from cortex basic. There is a modified version 
available from Aztech office supplies which substitutes the &£ 
For the # but it is slightly more expensive. Also the ribbon 
supplied with the machine may be very short so it would be as 
well to order a spare one. 


Matmos Ltd, 1 Church street, Chuckfield, West sussex. 
0444 414484 ve ee 3 a ee 


Aztec Office Equipment Ltd "High winds" South End, Much Hadham, 
Herts. 027 984 2036 | | | 


Corrections for Canyon and Missile Command P.D.Wrightson 


The problems that people are having with the games in the 
christmas issue due to the keyboard reading routine also reading 
other things like the disk size and density jumper settings and 
Some device interupt signals. The solution is not to read the 
extra information. The following modifications to the programmes 
cure the problem. | 


5 BASE 16 
670 A=KEY(O0]:A=CRFL8]:1F A<>CRF[8] OR B=l THEN GOTO 350 

680 IF A=8 THEN Pl=-1:G0TO 350 

699 IF A=9 THEN Pl=1;GOTO 350 

JOO IF A=52H AND PO>80 THEN Pl=-80:G0TO 350 

710 IF A=46H AND PO<800 THEN P1=40:GOTO 350 

720 IF A<>45H THEN GOTO 350 


Missile Command 

5 BASE 16 . 
1050 A=CRF[8]:B=CRF{8]:IFA<>B THEN GOTO 1130 
1060 M=KEY[0O] 
1070 IF A=41H OR A=53H OR A=44H THEN GOSUB 1190 
1080 IF A=8 AND PX>7 THEN PX=PX-4:G0T0O 1120 
1090 IF Az=9 AND PX<240 THEN PX=PX4+4:GOT01120 
1100 If A=OBH AND PY>8 THEN PY=PY-4:GOTO 1120 
1110 IF A=OAH AND PY<152 THEN PY=PY+4 
1220 IF A=53H THEN GOTO 1270 
1230 IF A=44H THEN GOTO 1280 


Note that the numbers in the comparisons are the ascii values of 
the keys pressed to control the games. 
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MDEX UTILITIES | A.R.C.Badcock 
Alan has sent in a few usefull utilities for use under MDEX some 
of them will be included in this and future issues. But all of 
them, and the source listings, will be added to the utilities 
disk available from the Group. 


XTRM Utility to tggle between using an external terminal or 
the Cortex consol for main input/output. Qbasic Prog. 


STRM A simmilar routine written in assembler. More compact 
with no messages 


LCASE Lower case character Penden. 
MAPON Switches aaeper on 

MAPOFF Switches mapper off 

MAPLOAD Mapper register setup utility 


COLOUR Utility to set cortex screen colours 


CONFIG Utility to get a readout of your MDEX I/O driver 
Configuration tables. 
UTY.LAB Datafile for above. 


All-the assembler programmes are set to run at OF200H so if you 
have not done the mod to get this extra memory available the 
source code will hav to be re-assembled to run elsware. 


Fxternal terminal switch routine for mdex A.R.C.Badcock 
Written in QBASIC 


1 { 
EXTERNAL TERMINAL SWITCH ROUTINE 
COPYRIGHT A.R.C.BADCOCK (C) 1984 


This routine redirects console 
1/0 to an external terminal via 
the serial port. The console 
switch is set in the CORTEX 

unit table pointed to by the 

base value at OOFEhH , and offset. 
by [KEYBOARD=2 and SCREEN=4]. 
Setting these words switches to 
ext., and clearing them to int. 


\%¥-3 J 


STRM terminal ceaie for MDEX A.R.C.Badcock 


 STRM : TERMINAL PATCH ROUTINE v1.0 
By ich eeBadeoek - Copyright (c)1984 


This MDEX v3.3 relocatable assembler 
code is to enable switching between 
an external VDU terminal and the 
normal CORTEX console. | 
The routine patches the panaole unit 
table at [BASE+2 & BASE+4] words. 
These are set to OFFFFh for external 
VDU and reset to O000h for CORTEX 
console. The BASE pointer is read © 
from the guaranteed vector at OOFEh. 


The status of console path is toggled. 


command = STRM 


IDT "STRM"  .Program ID 


RORG 
COPY "7/ISYS$" .system calls 
UT$CON EQU OOOFE .console table ptr 
Locate console table address 
START LI R7,UT$CON .Get pointer 
MOV *¥R7T,RB © .Get address 


Switch keyboard 


KBDSET INCT R& .Add offset 
INV ¥*RE ~Switch kbd 


Switch CRI screen 


CRTISET INCT R&§ .Add offset 


INV ¥*R8 -oWi beh ere 
Done - exit to system 
JSYS FINISH 
FINISH BYTE EXIT$,0 
DATA OUDVU 
END START . Entry label 
1g 


MONITOR COMMAND EXTENSION. QO.c. WALoEN 


Cortex implements ite Manitor cammands by matching the command 
letter against entries in a look-up table situated @>A3C to AIO. Each 
entry consists of two consecutive sixteen bit wordsi- a 

Word 1. MSB is Ascii code of letter, LSB is the required number 
of paramemetrs. | : | 
Word 2. The entry address of the relevant routine. 
There are two spare spaces in the table, but if more commands are 


required, these may be used to direct execution to a user written 


table and search routine for a two-letter command mnemonic. Thus each 
new entry gives up to 26 extra commands. 

The ASM routine included uses ‘J’ as the first letter, then 
‘RW,F,etc’ as second letters. You may of course choose your own by 


changing the ascii codes accordingly. | | | | 

Location @>A88 is set to #4A00, ascii ‘J’, with no parameters, and 
@>ABA to the entry address of your search routine. This could be done 
by a small application routine, or at CDOS boot time. | 


The listing was done under MDEX, but add your own start address to 
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those in the left-hand column and enter the opcodes via the ‘M’ 

command to save under CDOS. — ’ 
MON-EXT JCOM 

Fage 1 

0000 1. TITL "MON-EXT" 

0000 : 2% IDT "MON COMMAND EXTENSION" 
: 0000 O2EO 0000 3. JCOM LWPI WSP1 

0004 0d02A9 4. STWP 9 

0006 QO4CA as CLR 10 

0008 OF46 &. DATA OF46 

000A O20B 0026 C4 LI ii,JTAB 

QOOOE D2BB 8. J6 MOVB ¥*¥11+,10 

QO010 1313 vie JEQ JS 

0012 9286 10. CB 6,10 

0014 1303 a JEQ I2 

0016 022B 0003 beg AI 11,3 

OO1A 10F9 es ae IMP J6 

001G OFO64 14. J2 DATA OFO6— 

OOLE 0009 2000 13S. DATA 9,02000 

0022 D2BB 16. MOVB #11+,10 

0024 098A i7. SRL 10,8 

0026 1306 18. JEQ J4 

0028 OE§46 0038 00398 Tie da DATA 0OF46,355,J55 

OOZE CE46& 20. MOV 6,#9+ 

0030 060A run ee DEC 10 

0032 iBFA 22.8 JH J3 

0034 G29B za. J4 MOV #11,10 

0036 069A 24. BL #10 

0038 0460 OA06 Poe ao B @QA06 

20%: 

0030 5202 0000 S702 27. JTAB DATA 0527027,I3R,05702,IW,05000, JP 

0042 0000 5000 0000 | 

0048 4904 0000 4F04 203. DATA 04904,J1,04F04,30,04D04,JM,04304, 

OO4E 0000 4004 0000 

0054 4304 6000 0000 

OO5A 0000 

005C 27% END JCOM 


dise MEX to write vaur tiles. then fring them tnto GCDUS with this pan: 
Most Mdex facilities can be used. ASM. Edit. Word. etc. but not Basic. 
Cortex Basic is quicker & better anvway!: 


100 :; "<OC>MTOC. MDEX to CDOS file translator. | O.C.Walden." 
110 : : : "For Help type ‘’H’...or anything else to continue." is 
120 K= KEY(OJ]: IF K=048H THEN GOTO 490 | 
130 ad Bie a THEN GOTO 120 

140 ‘3 ot 5 “*k* Fit your MDEX disk now. en 
145 FOR Q=1 TO 29: : "<O95S>"i: NEXT Qi: rr: “<O7>" 
150 DATA 1,5,9,13,17,21,25 7 
{60 DATA 2,6,10,14,18,22,26 

{70 DATA 3,7,11,15,19,23 

1860 DATA 4,8,12,146,20,24 

i190 DIM PE25],xX04) 

200 FOR Q=0 TO 25: READ P(Q]: NEXT Q: RESTOR 

210 AX=ADR(XC0]] 

270 MWDCAXIJ=0420H: MWDCAA+2]=06260H 

230 MWDCAX+4)=OD8C4H: MWDCAX+6)=02H 

240 MWDCAX+8)=0380H 

250 INPUT "DRIVE?":" (0/3) a8, 

260 IF D<0O OR D>3. THEN GOTO 260 

270 INPUT "START BLOCK No.? “°-B 

280 INPUT "LENGTH IN BLOCKS? ":L 

290 INPUT "RAM BASE? a 

297 FOR RT=1 TO 3 

300 MAR=Rh: RT=3: E=0 

310 ie Scie are BS=INTCB-T#26]; B=BS 

320 : } "Drive Track Sector Rambase": 
340 FOR Qs {1 TOL 

350 !: E,T,P(B],#MAR: WAIT 10 

360 GALL "MTOC",AX,D,T,PC(B1-1,ADR(E],MAR,0, 0 

365 IF E«<>0 THEN GOTO 405 

370 B=B+1: MAR=MAR+128 

380 IF B>25 THEN B=0: T=T+tl 

390 NEXT Q 

402 IF E=0 THEN GOTO 420 

405 : "READ ERROR": #E/256 LAND 03FH 

410 NEXT RT 

°415 GOTO 430 


470 : : : + +: "Pile is @>":#R" TO" #(MAR-2) 

425 : +: : : : "kk Change disk before Saving *x" 
426 FOR Q=1 TO 31: : "<095>""': NEXT Q 

430 END 


440 REM For 5 inch drives, alter as below:- 

450 REM Change 25 to 15 in lines 190,200,310 

4640 REM Change 24 to 16 in lines 380. 

465 REM Change Data block to:- 

470 REM DATA 1,5,.9,19,2,6,10,14 

480 REM DATA 3,7,11,15,4,8,12,16 

490 : "Running under CDOS, the pgm will read MDEX standard files into Ram " 
495 : “where they can be used in situ, or SAVE’d with CDOS." 

E00 : "Obtain Start & Length from Mdex Dir. Mdex files use their” 

S510 : " first sector as a Héader block. To avoid pee use Start+l in cena 


5270 : "All MTOG parameters may be decimal or hex. 

530 : "When writing ASM pams, Opcodes not supported by Mdex should be entered as " 
535 : "Data words. Start ASM at RORG 0 and Link to your required Base in CDOS. 
540 : "For 5 inch Drives make the alterations shown at Lines 440 to 480." 

550 : "Type any key to return to pgm.” 


555 K=KEY(0J: IF K=0 THEN GOTO 559 
360 GOTO 140 
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These two programmes were sent in on tape by Dennis Johnson. - 3 
The first one is based on othello and is designed for two 

players. It uses the screen for the board, pieces and score 

board. The second Programme is a'version of the popular 

MASTERMIND game it only takes a few minuits to load but can get 

you hooked. It would be nice to see some more programmes | 7 
Suitable for tape sent into the newsletter so Peer have a door 
arround to see if you have anything available. 


"OTHELLO" Dennis Johnson 


1 TEXT 

2 PRINT @"C" 

5 GOTO, 4000 

5 GRAPH 

7 DIM AL7,7],BL7,7)],C{10] 

G.. bez T2S2). £20 

10 GOTO 1000 

15 SHAPE 1,-1,-1,-1,-1 

17 SHAPE 2, Orel: O8181H,O8181H,O81FFH 
18 SHAPE 3,08142H,02418H,01824H,0428]1H 
20 FOR X=28 TO 156 STEP 16 

30 PLOT 60,X TO 188, xX 

GO NEXT X 

50 FOR Y=60 TO 188 STEP 16 

60 PLOT Y,28 TO Y,156 

70 NEXT Y 

75 SPUT 334,1: SPUT 336,2 

75 SPUT 398,2: SPUT 400,1 

i? ‘BL So3l2ei2 BL4,4]2el> BL3,4]=2: BL4,3]=2 
80 SPRITE 1,64,31,3,15 | 

20: “H=64:. Veaole. Pai 362 Dele Kets. Yeo 


92: “LeP 

100 F=KEY[{O] 

102 E=0 | , 
10> -PRINES@C 2,27)" 99" SU BLACK = steers WHITE. = 2922 | 


110 IF F=0 THEN GOTO 100 
120 IF F=Q8H THEN GOTO 200 
130 If F=O09H THEN GOTO 300 
140 g9IF F=OAH THEN GOTO 400 
150 IF F=OBH THEN GOTO 500 
160 IF F=O1EH THEN GOTO 600 
2Z0Q0 If H<=64 THEN GOTO 100 
205 H=H-16: P=P-2: Y=Y-1 
210 SPRITE 1,H,V 

220 GOTO 100 

500 IF H>=176 THEN GOTO 100 
9Q05 H=H+16: P=P+2: Y=Y+l 
310 SPRITE 1,H,V 

320 GOTO 100 

GOO IF V>=143 THEN GOTO 1007 
405 W=V+16: P=P+64: X=X+1 
41/0 SPRITE 1,H,V 

420 GOTO 100 — 7 a 
500 IF V<=31 THEN GOTO 100 
505 V=V-16: P=P-64: X=X-1 
910 SPRITE 1,H,V 

520 GOTO 100 

600 IF P=Z THEN GOTO 100 
602 IF B[LX,Y]<>O THEN GOTO 700 


16% 


603 
605 
610 
620 
630 
640 
650 
660 
670 
700 
710 
720 
730 
800 
810 
820 
830 
B40 
850 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1100 
1110 
1130 
1140 
1150 
1160 
2000 
2010 
2020 
2030 
2040 
2045 
2050 
2060 
2070 
2075 
2080 
2090 
2100 
2110 
2120 
2150 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 


SPUT P,D 

BLX,Y]=D 

IF D=l THEN D=2: I1l=I11+1 
ELSE D=l: I2=I12+1 

Z=P 

Xl1=X: Yl=Y 

D2=D: IF D=l THEN Dl=2 
ELSE Dle=l 

GOTO 2000 

PRINT @(5,20);"ILLEGAL MOVE TRY AGAIN" 

WAIT 100 | 

PRINT @(5,20);" | if, 

GOTO 100 | 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


IF E=l1 THEN GOTO 100 
IF D=l THEN D=2: I2=12-1 
ELSE D=l: Il=I1-1 
BLX,Y]=0 
SPUT ALX,Y],0 
GOTO 700 : 
DATA 136,138,140,142,144,146,148,150 


200,202,204, 206,208,210,212,214 
PE. 76652685210, 212 52 1 azine re 
328,330,332, 334,336,338, 340, 342 
392,394,396, 398,400,402,404, 406 
456,458,460,462,464,466,468,470 
520,522,524, 526,528, 930,532,534 


DATA 584,586, 588, 590,592,594,596,598 
FOR X=0 TO 7 a 
FOR Y=0 TO 7 
READ A[X,Y] 
NEXT Y 


> R=-O 

IF Yl=7 THEN GOTO 2220 

IF Yl=6 THEN GOTO 2220 

M=] 

IF BLX1,Y1+M]=D1 THEN GOTO 2220 

IF B[X1,Y1+M]=0 THEN GOTO 2220 

CERJ=ALX,Y14+M]: R=R+l1- 

M=M4+1 

IF B[X1,Y1+M]=D1 THEN GOTO 2110 

IF B[X1,Y1+M]=0 THEN GOTO 2190 

C(R]=ALX1,Y14+MJ: R=R+1 

IF Yl4+M=7 THEN GOTO 2190 

GOTO 2060 

R=0: M=M-1: 

SPUT C[{R],D1 

B[X,Y1l+M]=D1 

IF Dl=l THEN Il=Il4+1: I2=12-1 
PEGE [ietled= 122l241 | 


ES] 


R=R+1: M=M-1 

IF C{R]=0 THEN GOTO 2190 
GOTO 2120 

FOR J=-0 TO 10 

C{J]=0 

NEXT J 

Q=Q+1 


IF Q>8 THEN GOTO 800 


ON Q THEN GOTO 2000, 2300,2500,2700, 2900, 3100, 3300, 5500 
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2250 
2300 
2310 
2320 
2330 
2340 
2345 
2350 
2360 
2370 
2375 
2380 
2390 
2992 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2500 
2510 
2520 
2540 
25945 
2550 
2560 
2570 
2575 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2/00 
2710 
2/20 
2730 
2740 
2745 
2750 
2/760 
2770 
2775 
2780 
2790 
2800 
2810 
2820 
2830 
2840 


R=R4+l1: 


GOTO 100 

R=0: X1l=X: Y1l=Y 

IF Yl2=7 OR Xl=7 THEN GOTO 2220 

IF Y1l=6 OR Mia 6 THEN GOTO 2220 

M=1 

IF BEL X14+M,Y1+MJ]=D1 THEN GOTO 2220 

IF BLX14+M,Y14+MJ]=0 THEN GOTO 2220 

CIR]=ALX14+M, Y1+™]: R=R+1 

M=M+1 . 

IF BEX14+M,Y14+MJ]=D1l THEN GOTO 2410 

IF BL X14+M,Y14+M]=0 THEN GOTO 2190 

CER IJ=ALX14+M, Y14+M]: R=R+1 

IF Yl+M=7 THEN GOTO 2190 

IF X1+M=7 THEN GOTO 2190 

GOTO 2360 

R=O0: M=M-1: 

SPUT C[R],D1 

BL X14+M,Y1+MJ=D1 

IF Dl=l THEN Il=Il4l: I2=12-1 
ELSE Il=I1l-1l: I[2=12+1 

R=R+1l: M=M-1 

IF C{RJ=0 THEN. GOTO 2190 

GOTO 2420 

R=O0: X1l=X: Y1l=Y¥ 

IF X1=7 OR X1=6 THEN GOTO 2220 

M=l 

IF BLX14+M,Y1]=D1 THEN GOTO 2220 

IF B[LX1+M,Y1J=0 THEN GOTO 2220 

CCR]=ALX14M,Y1]: R=R+1 

M=M+1] 

IF BL X1+M, Vile D1 THEN GOTO 2610 

IF BLX14M,Y1]=0 THEN GOTO 2190 

CER]-ALX14M,Y11: R=R+1 

IF X1+M=7 THEN GOTO 2190 

GOTO 2560 

R-O0: M=M-1: 

SPUT C[R],D]1 

BE X14M,Y1]=D1 

IF Dl=l THEN I1l=I11+1: 
ELSE Il=ll-1: 

M=M-1 

IF C{R]=0 THEN GOTO 2190 

GOTO 2620 

R=0: Xl=X: Y1l=Y 

IF X1=7 OR Y1=O THEN GOTO 2220 

IF X1=6 OR Yl=l THEN GOTO 2220 

Met. 

IF B[LX14M,Y1-M]=D1 THEN GOTO 2220 

IF BLX14M,Y1-M]=0 THEN GOTO 2220 

C[R]= ALX14M, Y1- Mj]: R=R+1 

M=M4+] 

IF B[X1+M,Y1-M]=D1 THEN GOTO 2810 

IF BLX1+M,Y1-M]=0 THEN GOTO 2190 

cC(R]=ALX14+M,Y1-M]: R=R+l1 — 

IF X14+M=7 OR YI-M=0 THEN GOTO 2190 

GOTO 2760 

R=O0: M=M-1: 

SPUT C[{R],D1 

BEX14+M,Y1-MJ=D1 . 

IF Dl=l1 THEN IJ1=I11+1: 


bet 


we | 


Peet 71 
T2=12+1] 


ES 1. 


Zot 2e1 
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2850 
2860 
2870 
2880 
2900 
2910 
2920 
2930 
2935 
2940 
2950 
2960 
2965 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3100 
3110 
3120 
3130 
3140 
3145 
3150 
3160 
3170 
3175 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3300 
3310 


3330 


3340 
3345 
3350 
3360 
3370 
3375 
3380 
3390 
3400 
3410 
3420 
3430 


ELSE L[l=Il-1: 12=12+1 


-R-=R+1l: M=M-1 


IF C[R]=0 THEN GOTO 2190 

GOTO 2820 

R=-O: Xl=X: Y1l=Y 

IF Y1=0 OR Yl=l1 THEN GOTO 2220 

M=1 

IF BLX1,Y1-M]=D1 THEN GOTO 2220 

IF BLX1,Y1-M]=0 THEN GOTO 2220 

C{R]= ALX1, YVI-M]: R=R+1 . 

M=M+1 

IF BLX1,Y1-M]=D1 THEN GOTO 3000 

IF BLX1,Y1-M]=0O THEN GOTO 2190 

CER]=ALX1,Y1-M]: R=R+1 

IF Y1-M=0 THEN GOTO 2190 

GOTO 2950 

R=0: M=M-1: E=l 

SPUT C[R],D1 

BEX1,Y1-MJ=D1 : 

IF Dl=l1 THEN Il=I1l+1l: [2=12-1 
FLSE Il=I1l-l: 12=12+1 

R=R+1: M=M-1 

IF C{R]=0 THEN GOTO 2190 

GOTO 3010 

R=-O0: X1l=X: Y1=Y 

IF Yl=0 OR X1=0O THEN GOTO 2220 

IF Yl=l OR Xl=l1 THEN GOTO 2220. 

Mei 

IF BEX1-M,Y1-M]J=D1 THEN GOTO 2220 

IF BEX1L-M,Y1-M]=0 THEN GOTO 2220 

CL R= ALX1-M, YI-M]: R=R4+1 _ 

M=M+1] 

IF BLX1-M,Y1-M]=D1 THEN GOTO 3210 

IF BEX1-M,Y1-M]=0 THEN GOTO 2190 

CIR]=ALX1—M,Y1-M]: R=R4+l 

IF X1-M=0 OR Y1-M=0O THEN .GOTO 2190 

GOTO 3160 

R-0: M=M-1: E=l 

SPUT C[LR],D1 

B[X1-M,Y1-MJ=D1 

IF Dl=l THEN Il=Il4l: 12=I12-1 
FLSE Il=-=Il-1: I12=12+1 

R=R+1l: M=M-1 

IF CE{R]=0O THEN GOTO 2190 

GOTO 3220 

R=O0: X1l=X: Y1l=Y 

IF X1=0 OR Xl=1l THEN GOTO 2220 

M=l 

IF BLEX1-M,Y1]=D1 THEN GOTO 2220 

IF BEX1-M,Y1]=0O THEN GOTO 2220 

C[RJ=ALX1-M,Yl]: R=R+1 

M=M+1 

IF BEX1-M,Y1]=D1 THEN GOTO 3410 

IF BLX1-M,Y1]J=0O THEN GOTO 2190 

CER]J=ALX1-M,Y1]: R=R+1 

IF X1-M=0 THEN GOTO 2190 

GOTO 3560 

R=O0: M=M-1: E=l1 

SPUT C[LR],D1 

BEX1-M,Y1]=D1 


\8- Mi 


3440 
3450 
3460 
3470 
3480 
3500 
3510 


3520° 


3530 
3540 
JI45 
3390 
3560 
3570 
D215 
3580 
J270 
3600 
5610 
3620 
3630 
3640 
3650 
5660 
5670 
5680 
4000 
4005 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 


IF Dl=l THEN Il=I1l4+l: 12=+12-1 
ELSE Il=Il-1l: 12=12+1 

R=R+l: M=M-] 

IF C{R]=0 THEN GOTO 2190 

GOTO 3420 

R=0: Xl=X: Y1=Y 

IF Yl=7 OR Yl=6 THEN GOTO 2220 

IF X1=0 OR Xl=1 THEN GOTO 2220 

M=1] ; 

IF BLEX1-M,Y14+M]=D1 THEN GOTO 2220 

IF BEX1-M,Y14+M]=0 THEN GOTO 2220 

CERJ=ALX1-M,Y14M]: R=R+1 > 

M=M4+1 | 

IF BLX1-M,Y14+M]=D1 THEN GOTO 3610 

IF BLX1-M,Y14+M]=0 THEN GOTO 2190 


/CERJ=ALX1-M,Y14M]: R=R+1 


IF X1-M=0 OR Y14+M=7 THEN GOTO 2190 
GOTO 3560 2 
ReO es MeMal:. Fei | | : | ss 
SPUT C[LR],D1 : be 
BLX1-M,Y1+M]=D1 
IF Dl=l1 THEN Il=I1l+l: I2=12-1 
ELSE -Lletliels TZeiz2+]) 
R=R+1l: M=M-1 
IF C{RJ=O THEN GOTO 2190 
GOTO 3620 | 
PRINT @"8D2R";"A BOARD GAME BASED ON OTHELLO" 
PRINT @"2R"3"(by D.W.Johnson)" 
PRINT @"2R"s"Moves are made with the cursor keys" 
PRINT @"2R"3;"and a piece is set with the home key." 
PRINT @"2R";"Black moves first and illegal moves." 
PRINT @"2R"3;"are cautioned." | 
PRINT @"2D2R"s"Press any key to start" 
F=KEY[O] | | | 
IF F<>O THEN GOTO 5 
GOTO 4060 
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"MASTERMIND" : | Dennis Johnson 


5S PRINT @'c" | | 

10 . PRINT @"8D10R";"MASTER MIND COMPETITION" 
20 PRINT @"2D10R";"GUESS THE RANDOM NUMBER" 
22 PRINT @"2D13R"3"(by D.W. Johnson)" 
25 PRINT @"2D10R". | 
30 INPUT "HOW MANY DIGITS(12 MAX) ? "3D 
35 PRINT @"2D10R" _ 3 | 

40 INPUT "HOW MANY TRIES ? "3T 

50 DIM R[{12]: DIM S[{12]: DIM B[12]: E=0 
60 GOSUB 300 | 

70 GOSUB 700 

80 GOSUB 200 

90 GOSUB 400 

100 If CN=D AND CP=D THEN GOTO 600 

110 PRINT @"B28R";CN;3: PRINT @"4R"5CP 
120 E-E+l1 * | 

130 IF E=T THEN GOTO 500 

140 GOTO 80 

200 FOR Az=1 TO D 

210 F=KEY[O] 

220 IF F=0 THEN GOTO 210 

230 BL A]=F-48 

255 PRINT B[A]; 

240 NEXT A 

250 RETURN 

300 FOR A=1 TO D 

310 REAJ=INTERND*9 ] 

320 SLAJ=RLA] 

330 NEXT A 

340 RETURN 

400 CN=0: CP=0 

402 FOR A=1 T0 D 

404 IF B[A]=S[A] THEN CP=CP+l 

406 NEXT A 

410 FOR A=1 TO D 

420 FOR C=1 TO D 

430 IF B[A]=S[C] THEN CN=CN4+1: S[C]=10: B[A]=20 
440 NEXT C | 
450 NEXT A 

460 FOR C=1 TO D 

470 SLCJ=ERLC] 

480 NEXT C 

490 RETURN 

500 PRINT "HARD LUCK,THE NUMBER WAS" 
510 FOR A=1 TO D 

520 PRINT R[A]; 

530 NEXT A 


535 PRINT 

540 INPUT " TRY AGAIN ? (Y OR N)"5$G 
550 IF $G="Y" THEN GOTO 25 

560 STOP 

600 PRINT " WELL DONE" 


610 GOTO 540 

700 PRINT @"C" 7 
710 PRINT @"1DIR";"YOUR ATTEMPTS" 
720 PRINT @"1LU2Z8R" 5 "RESULTS" 

730 PRINT @"1D27R"3;"NUMBS POSNS" | 
740 RETURN 
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Compressed graphics screen save routine Tim Gray 
This routine copies the VDP memory into main memory using a 
compressed data format. Using this method most graphics screens 


take up less than 4K bytes instead of the 16K normal. To use the 
routine first reserve enough memory with 


DIM SCN[2730] 
Then call the routine with 
CALL XXXX,ADR[SCN[O] J 


Where XXXX is the start address of either the save or load 
routines as assembled. At the end of the save the length of the 
data block can be obtained from the first word of SCN[LOJ. So to 
Save to disk use 


LN=MWD[LADR[SCN[O] J] 

OPEN drive,filename,filevariable,CRE,LN 
PUT filevariable,0O,SCN[O] 

CLOSE filevariable 

And to Recall the stored screen 

GRAPH 

OPEN drive,filename,filevariable 


GET filevariable,O,SCN[O] 
CALL XXXX,ADR[SCN[O] 


Listing Of Assembler Source File "SCNSAV.S" 
COMPRESSED SCREEN SAVE AND LOAD 


TIM GRAY 1988 


COMPRESSED SAVE 


© 
> 
2e we Se ee @0e we we Ww 


09 ORG >F 200 


bf 
11 XSVDP EQU >O5F2 
12 XVDP EQU >F120 


I>. 3 

14 SAVE: CLR R&4 sbyte count 

15 Fs CLR RB sVDP start 

16 MOV RO,RI 3;save start 

17 | BL @XSVDP ;setup VDP 

13 LI R8,>4000 smax display 
19 LA R1,>0002 ;jump count wd 
20 INCT RO | a 

21 BYTE1: MOVB @XVDP,R2 sget Ist byte 
22 DEC R8 

23 MOVB R2,*RO+ ssave it 

24 INC Rl gine counter 
25 NDATA: MOVB @XVDP,RS s;get next byte 
26 DEC R8 
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XSVDP 
NDATA 
LOAD 


O5F 2 
F21E 
F258 


JLT EXIT 
CB R2,R3 
JNE OIFF 
INC R4 
CI R4,>100 
JLT NDATA 
DEC R4 
DIFF: SLA R4,8 
MOVB R4,*RO+ 
CLR RG 
MOVB R3,*RO+ 
MOVB R3,R2 
INCT Rl 
CI R1,>4000 
JGT ERRORI 
Mov R8,R8 
JLT EXIT 
az JMP NDATA 
ERRORIL: XOP @>0A,14 
EXIT: MOV R1,*RI 
SLA R4,8 
MOVB R4,*RO 
RTWP 
; 
2 
; 
; 
> | 
> COMPRESSED SCREEN LOAD 
3 : 
LOAD: INCT RO 
LI R8,>4000 
BL @xXSVDP 
LI R1,>4000 
DATA:  MOVB *RO+,R2 
MOVB *RO+,R3 
SRL R3,8 
MDATA: MOVB R2,@XVDP 
DEC Rl 
JEQ EXIT1L 
DEC R3 
JLT DATA 
JMP MDATA 
EXIT1: RITWP 
b ; , 
. end of file 
9 


smatch 2 


_3no 
syes inc by cnt 


smax=256 

*no next data 
sset to 256 
salign data 
ssave byte count 


-sreset by count 
ssave next data 


scopy it 

sinc counter 
smax 16K ? 
soverflow err 
send display ? 
syes exit 

sno get next 
sout of mem 


ssave tot count 


salign data 
-save byte count 


-step over count 
swrite zero 
-setup VDP 

smax 16K © 

sget lst data 
*get byte count 
salign it 

sput data in 
scheck for end 
syes exit 

sbyte cnt zero ? 
syes get nxt dat 
sno put more 
send 


labels From Assembler File "SCNSAV.Z" 


SAVE 


XVDP F120 F200 BYTE 
DIFF F234 ERRORI F24C EXIT 
DATA F266 MDATA F26C EXIT 


(«1S 


F214 
F250 
F27A 


Cortex User Group Sale Items 


Hardware 
R.G.B. interface P.C.B £8.00 
Centronics | ‘eeGet £7.00 
—E.Bus 512K DRAM ‘P.C.B plated through hole £40.00 
Externel Video interface P.C.8 £15.00. 
Disk controller WO2797 + P.C.B Cortex I £55.00 
Disk controller WO2797 + P.C.B Cortex Il £60.00 
E.Bus interface complete Kit £50.00 
E.Bus 8 X 8K EPROM socket card built but no EPROMS £30.00 
F Bus 4K RAM 8K EPROM socket 16 I/O lines ex equipment £15.00 
TMS9902 UART ICs £2.00 
74LS612 Mapper ICs £25.00 
74LS611 or 74LS6135 Mapper IC’s (req pull up Rs) £10.00 
Other IC’s in stock please write in for quote 
Software all disk formats please specify when ordering 
CDOS basic disk system 1.20 for 1MS9909 : £45.00 
CDOS basic disk system 2.00 for WD2/97 £45.00 
Wortex word processor + spelling check by J.Makenzie £15.00 
Drawtech graphics drawing package by Tim Gray £20.00 
Menue generator by A.R.C.Badcock £10.00 
Two pass assembler by R.M.Lee | £14.00 
Two pass asembler by C.J.Young £15.00 
Cdos utilites disk - copy charge only £2000 
Cdos programes and games all £2.50 each :- 
ARCHIE ASTEROID BREAKOUT BURGLAR CATERPIL C-PEDE 
CANYON COTELLO FIREBIRD FROGGER GDESIGN GOLF 
HUNCHBACK INVADERS MAZE MAZE-3D MBASE MICROPED 
MIS-COM MUNCHER NIBBLERS N-ATTACK OLYMPICS P.BOAT 
PENGO PONTOON RESCUE S-ATTACK SPACE-BU THE-ZOO 
TRAG VADERS WALL X/0 
MDEX So newene all formats please specify 
MDEX CORE user debug monitor text editor and basic £10.00 
MDEX ASM & LINK assembler and linker £10.00 
MDEX SYSGEN system generation kit £10.00 
MDEX WORD word processor £10.00 
MDEX P.D.S. all the above in one package £30.00 
MDEX S.P.L. system programming language £10.00 
MDEX META compiler generator £10.00 
MDEX QBASIC basic compiler Silos 
MDEX PASCAL sequential pascal | £10.00 
MDEX WINDOW full screen editor £1500 
MDEX SPELL spelling checker £10.00 
MDEX utilities copy charge only £2.00 
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